home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol285 / overview.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-03-15  |  13.4 KB  |  414 lines
  1. 100  REM OVERVIEW Program
  2. 105  REM Screen Overview of Genealogy ON DISPLAY
  3. 110  REM Copyright 1986 - 1987 by:  Melvin O. Duke
  4. 115  SCREEN 0,1,0,0
  5. 120  SCREEN 1 : COLOR 1 : CLS
  6. 130  LOCATE  4,10 : PRINT "Genealogy ON DISPLAY";
  7. 140  LOCATE  6,14 : PRINT "Version 5.0";
  8. 150  LOCATE 10, 8 : PRINT "A User-Supported Program";
  9. 160  LOCATE 14,10 : PRINT "By:  Melvin O. Duke";
  10. 170  LOCATE 16,12 : PRINT "P.O. Box 20836";
  11. 180  LOCATE 18,10 : PRINT "San Jose, CA  95160";
  12. 190  LOCATE 20,12 : PRINT "(408) 268-6637";
  13. 200  LOCATE 23, 1 : PRINT "Press the escape key (Esc) to end, or";
  14. 210  LOCATE 24, 1 : PRINT "Press any key to continue at each pause";
  15. 220  GOSUB 4000 'pause
  16. 230  CLS
  17. 240  LOCATE  1,10 : PRINT "CAPABILITIES";
  18. 250  LOCATE  4, 2 : PRINT "CHARTS:";
  19. 260  LOCATE  4,15 : PRINT "Pedigree (Family Tree)";
  20. 270  LOCATE  6,15 : PRINT "Family Group";
  21. 280  LOCATE  8,15 : PRINT "Descendents";
  22. 290  GOSUB 4000 'pause
  23. 300  LOCATE 11, 2 : PRINT "LISTS:";
  24. 310  LOCATE 11,15 : PRINT "Persons (numeric)";
  25. 320  LOCATE 13,15 : PRINT "Persons (alphabetic)";
  26. 330  LOCATE 15,15 : PRINT "Marriages (numeric)";
  27. 340  LOCATE 17,15 : PRINT "Marriages (alphabetic)";
  28. 350  LOCATE 19,15 : PRINT "Parent/Child Index";
  29. 360  GOSUB 4000 'pause
  30. 370  LOCATE 22, 2 : PRINT "DETAILS:";
  31. 380  LOCATE 22,15 : PRINT "About Persons";
  32. 390  LOCATE 24,15 : PRINT "About Marriages";
  33. 400  GOSUB 4000 'pause
  34. 410  CLS
  35. 420  LOCATE  1,10 : PRINT "CAPABILITIES, Cont.";
  36. 430  LOCATE  4, 2 : PRINT "SCREEN:";
  37. 440  LOCATE  4,15 : PRINT "Pedigrees (Family Trees)";
  38. 450  LOCATE  6,15 : PRINT "Family Groups";
  39. 460  LOCATE  8,15 : PRINT "Descendants";
  40. 470  LOCATE 10,15 : PRINT "Personal Detail";
  41. 480  LOCATE 12,15 : PRINT "LDS Ordinances";
  42. 490  LOCATE 17,15 : PRINT "(This is where";
  43. 500  LOCATE 19,15 : PRINT "Genealogy ON DISPLAY";
  44. 510  LOCATE 21,15 : PRINT "got its name)";
  45. 520  GOSUB 4000 'pause
  46. 530  CLS
  47. 540  LOCATE  2,10 : PRINT "DATA STORAGE PRINCIPLE";
  48. 550  LOCATE  6, 2 : PRINT "Information Must be Recorded one time";
  49. 560  LOCATE  8, 2 : PRINT "only.";
  50. 570  GOSUB 4000 'pause
  51. 580  LOCATE 13,10 : PRINT "DATA BASE PRINCIPLE";
  52. 590  LOCATE 17, 2 : PRINT "Data Storage Must be Separated from";
  53. 600  LOCATE 19, 2 : PRINT "Data Presentation.";
  54. 610  GOSUB 4000 'pause
  55. 620  CLS
  56. 630  LOCATE  2,10 : PRINT "FILES";
  57. 640  LOCATE  7, 2 : PRINT "DATA FILES:";
  58. 650  LOCATE  7,15 : PRINT "Persons File";
  59. 660  LOCATE  9,15 : PRINT "Marriages File";
  60. 670  LOCATE 11,15 : PRINT "Ordinances File (LDS)";
  61. 680  GOSUB 4000 'pause
  62. 690  LOCATE 17, 2 : PRINT "INDEXES:";
  63. 700  LOCATE 17,15 : PRINT "Parent/Child Index";
  64. 710  LOCATE 19,15 : PRINT "Marriage Index";
  65. 720  GOSUB 4000 'pause
  66. 730  CLS
  67. 740  LOCATE  2,10 : PRINT "RECORDS";
  68. 750  LOCATE  6, 2 : PRINT "Person Record";
  69. 760  R1 = 7 : C1 =  1 : R2 = 9 : C2 = 40 : GOSUB 4100 'box
  70. 770  R1 = 7 : C1 =  7 : R2 = 9 : C2 =  7 : GOSUB 4150 'line
  71. 780  R1 = 7 : C1 = 30 : R2 = 9 : C2 = 30 : GOSUB 4100 'line
  72. 790  R1 = 7 : C1 = 35 : R2 = 9 : C2 = 35 : GOSUB 4100 'line
  73. 800  LOCATE  8, 3 : PRINT "P.No";
  74. 810  LOCATE  8,10 : PRINT "Vital Statistics";
  75. 820  LOCATE  8,31 : PRINT "F.No";
  76. 830  LOCATE  8,36 : PRINT "M.No";
  77. 840  GOSUB 4000 'pause
  78. 850  LOCATE 13, 2 : PRINT "Marriage Record"
  79. 860  R1 = 14 : C1 =  1 : R2 = 16 : C2 = 40 : GOSUB 4100 'box
  80. 870  R1 = 14 : C1 =  7 : R2 = 16 : C2 =  7 : GOSUB 4150 'line
  81. 880  R1 = 14 : C1 = 30 : R2 = 16 : C2 = 30 : GOSUB 4150 'line
  82. 890  R1 = 14 : C1 = 35 : R2 = 16 : C2 = 35 : GOSUB 4150 'line
  83. 900  LOCATE 15, 3 : PRINT "M.No";
  84. 910  LOCATE 15,10 : PRINT "Vital Statistics";
  85. 920  LOCATE 15,31 : PRINT "H.No";
  86. 930  LOCATE 15,36 : PRINT "W.No";
  87. 940  GOSUB 4000 'pause
  88. 950  LOCATE 20, 2 : PRINT "Ordinance Record"
  89. 960  R1 = 21 : C1 = 1 : R2 = 23 : C2 = 40 : GOSUB 4100 'box
  90. 970  R1 = 21 : C1 = 7 : R2 = 23 : C2 =  7 : GOSUB 4150 'box
  91. 980  LOCATE 22, 3 : PRINT "P.No";
  92. 990  LOCATE 22,10 : PRINT "LDS Ordinances";
  93. 1000  GOSUB 4000 'pause
  94. 1010  CLS
  95. 1020  LOCATE  2,10 : PRINT "BUILDING A PEDIGREE CHART";
  96. 1030  REM Person
  97. 1040  LOCATE 14, 2 : PRINT "P       F M";
  98. 1050  R1 = 13 : C1 =  1 : R2 = 15 : C2 = 13 : GOSUB 4100 'box
  99. 1060  R1 = 13 : C1 =  9 : R2 = 15 : C2 =  9 : GOSUB 4150 'line
  100. 1070  R1 = 13 : C1 = 11 : R2 = 15 : C2 = 11 : GOSUB 4150 'line
  101. 1080  GOSUB 4000 'pause
  102. 1090  REM Father
  103. 1100  LOCATE  8,10 : PRINT "P       F M";
  104. 1110  R1 =  7 : C1 =  9 : R2 = 9 : C2 = 21 : GOSUB 4100 'box
  105. 1120  R1 =  7 : C1 = 17 : R2 = 9 : C2 = 17 : GOSUB 4150 'line
  106. 1130  R1 =  7 : C1 = 19 : R2 = 9 : C2 = 19 : GOSUB 4150 'line
  107. 1140  R1 = 13 : C1 = 10 : R2 = 9 : C2 = 10 : GOSUB 4150 'line
  108. 1150  GOSUB 4000 'pause
  109. 1160  REM Mother
  110. 1170  LOCATE 20,12 : PRINT "P       F M";
  111. 1180  R1 = 19 : C1 = 11 : R2 = 21 : C2 = 23 : GOSUB 4100 'box
  112. 1190  R1 = 19 : C1 = 19 : R2 = 21 : C2 = 19 : GOSUB 4150 'line
  113. 1200  R1 = 19 : C1 = 21 : R2 = 21 : C2 = 21 : GOSUB 4150 'line
  114. 1210  R1 = 15 : C1 = 12 : R2 = 19 : C2 = 12 : GOSUB 4150 'line
  115. 1220  GOSUB 4000 'pause
  116. 1230  REM Paternal Grandfather
  117. 1240  LOCATE  5,18 : PRINT "P       F M";
  118. 1250  R1 =  4 : C1 = 17 : R2 =  6 : C2 = 29 : GOSUB 4100 'box
  119. 1260  R1 =  4 : C1 = 25 : R2 =  6 : C2 = 25 : GOSUB 4150 'line
  120. 1270  R1 =  4 : C1 = 27 : R2 =  6 : C2 = 27 : GOSUB 4150 'line
  121. 1280  R1 =  6 : C1 = 18 : R2 =  7 : C2 = 18 : GOSUB 4150 'line
  122. 1290  GOSUB 4000 'pause
  123. 1300  REM Paternal Grandmother
  124. 1310  LOCATE 11,20 : PRINT "P       F M";
  125. 1320  R1 = 10 : C1 = 19 : R2 = 12 : C2 = 31 : GOSUB 4100 'box
  126. 1330  R1 = 10 : C1 = 27 : R2 = 12 : C2 = 27 : GOSUB 4150 'line
  127. 1340  R1 = 10 : C1 = 29 : R2 = 12 : C2 = 29 : GOSUB 4150 'line
  128. 1350  R1 =  9 : C1 = 20 : R2 = 10 : C2 = 20 : GOSUB 4150 'line
  129. 1360  GOSUB 4000 'pause
  130. 1370  REM Maternal Grandfather
  131. 1380  LOCATE 17,20 : PRINT "P       F M";
  132. 1390  R1 = 16 : C1 = 19 : R2 = 18 : C2 = 31 : GOSUB 4100 'box
  133. 1400  R1 = 16 : C1 = 27 : R2 = 18 : C2 = 27 : GOSUB 4150 'line
  134. 1410  R1 = 16 : C1 = 29 : R2 = 18 : C2 = 29 : GOSUB 4150 'line
  135. 1420  R1 = 18 : C1 = 20 : R2 = 19 : C2 = 20 : GOSUB 4150 'line
  136. 1430  GOSUB 4000 'pause
  137. 1440  REM Maternal Grandmother
  138. 1450  LOCATE 23,22 : PRINT "P       F M";
  139. 1460  R1 = 22 : C1 = 21 : R2 = 24 : C2 = 33 : GOSUB 4100 'box
  140. 1470  R1 = 22 : C1 = 29 : R2 = 24 : C2 = 29 : GOSUB 4150 'line
  141. 1480  R1 = 22 : C1 = 31 : R2 = 24 : C2 = 31 : GOSUB 4150 'line
  142. 1490  R1 = 22 : C1 = 22 : R2 = 21 : C2 = 22 : GOSUB 4150 'line
  143. 1500  GOSUB 4000 'pause
  144. 1510  CLS
  145. 1520  LOCATE  2,10 : PRINT "INDEXES";
  146. 1530  LOCATE  6, 2 : PRINT "Parent/Child Index";
  147. 1540  R1 =  7 : C1 =  8 : R2 = 13 : C2 = 28 : GOSUB 4100 'box
  148. 1550  R1 =  7 : C1 = 15 : R2 = 13 : C2 = 15 : GOSUB 4150 'line
  149. 1560  R1 =  7 : C1 = 21 : R2 = 13 : C2 = 21 : GOSUB 4150 'line
  150. 1570  R1 =  9 : C1 =  8 : R2 =  9 : C2 = 28 : GOSUB 4150 'line
  151. 1580  R1 = 11 : C1 =  8 : R2 = 11 : C2 = 28 : GOSUB 4150 'line
  152. 1590  LOCATE  8, 9 : PRINT "Parent";
  153. 1600  LOCATE  8,16 : PRINT "Child";
  154. 1610  LOCATE  8,22 : PRINT "B-Date";
  155. 1620  LOCATE 10, 9 : PRINT "Parent";
  156. 1630  LOCATE 10,16 : PRINT "Child";
  157. 1640  LOCATE 10,22 : PRINT "B-Date";
  158. 1650  LOCATE 12, 9 : PRINT "Parent";
  159. 1660  LOCATE 12,16 : PRINT "Child";
  160. 1670  LOCATE 12,22 : PRINT "B-Date";
  161. 1680  GOSUB 4000 'pause
  162. 1690  LOCATE 16, 2 : PRINT "Marriages Index";
  163. 1700  R1 = 17 : C1 =  8 : R2 = 23 : C2 = 28 : GOSUB 4100 'box
  164. 1710  R1 = 19 : C1 =  8 : R2 = 19 : C2 = 28 : GOSUB 4150 'line
  165. 1720  R1 = 21 : C1 =  8 : R2 = 21 : C2 = 28 : GOSUB 4150 'line
  166. 1730  R1 = 17 : C1 = 15 : R2 = 23 : C2 = 15 : GOSUB 4150 'line
  167. 1740  R1 = 17 : C1 = 21 : R2 = 23 : C2 = 21 : GOSUB 4150 'line
  168. 1750  LOCATE 18, 9 : PRINT "Person";
  169. 1760  LOCATE 18,16 : PRINT "Marr.";
  170. 1770  LOCATE 18,22 : PRINT "M-Date";
  171. 1780  LOCATE 20, 9 : PRINT "Person";
  172. 1790  LOCATE 20,16 : PRINT "Marr.";
  173. 1800  LOCATE 20,22 : PRINT "M-Date";
  174. 1810  LOCATE 22, 9 : PRINT "Person";
  175. 1820  LOCATE 22,16 : PRINT "Marr.";
  176. 1830  LOCATE 22,22 : PRINT "M-Date";
  177. 1840  GOSUB 4000 'pause
  178. 1850  CLS
  179. 1860  LOCATE  4,14 : PRINT "DATA BASE";
  180. 1870  LOCATE 10, 8 : PRINT "A Relationship-Indexed";
  181. 1880  LOCATE 12, 8 : PRINT "Data-base Organization";
  182. 1890  LOCATE 20, 9 : PRINT "Ties it all together";
  183. 1900  GOSUB 4000 'pause
  184. 1910  CLS
  185. 1920  LOCATE  2,10 : PRINT "BUILDING FAMILIES";
  186. 1930  R1 = 10 : C1 = 2 : R2 = 12 : C2 = 11 : GOSUB 4100 'box
  187. 1940  LOCATE 11, 3 : PRINT "Marriage";
  188. 1950  GOSUB 4000 'pause
  189. 1960  R1 =  5 : C1 =  2 : R2 =  7 : C2 = 11 : GOSUB 4100 'box
  190. 1970  LOCATE  6, 3 : PRINT "Person";
  191. 1980  R1 =  7 : C1 = 20 : R2 = 10 : C2 = 29 : GOSUB 4100 'box
  192. 1990  LOCATE  8,21 : PRINT "Marriage";
  193. 2000  LOCATE  9,21 : PRINT "Index";
  194. 2010  R1 =  7 : C1 = 11 : R2 =  7 : C2 = 20 : GOSUB 4150 'line
  195. 2020  R1 = 10 : C1 = 20 : R2 = 10 : C2 = 11 : GOSUB 4150 'line
  196. 2030  GOSUB 4000 'pause
  197. 2040  R1 = 12 : C1 = 20 : R2 = 16 : C2 = 29 : GOSUB 4100 'box
  198. 2050  LOCATE 13,21 : PRINT "Parent/";
  199. 2060  LOCATE 14,21 : PRINT " Child";
  200. 2070  LOCATE 15,21 : PRINT "Index";
  201. 2080  R1 = 16 : C1 =  2 : R2 = 18 : C2 = 11 : GOSUB 4100 'box
  202. 2090  LOCATE 17, 3 : PRINT "Child";
  203. 2100  R1 = 12 : C1 = 11 : R2 = 12 : C2 = 20 : GOSUB 4150 'line
  204. 2110  R1 = 16 : C1 = 20 : R2 = 16 : C2 = 11 : GOSUB 4150 'line
  205. 2120  GOSUB 4000 'pause
  206. 2130  R1 = 18 : C1 =  2 : R2 = 20 : C2 = 11 : GOSUB 4100 'box
  207. 2140  LOCATE 19, 3 : PRINT "Child";
  208. 2150  GOSUB 4000 'pause
  209. 2160  R1 = 20 : C1 =  2 : R2 = 22 : C2 = 11 : GOSUB 4100 'box
  210. 2170  LOCATE 21, 3 : PRINT "Child";
  211. 2180  GOSUB 4000 'pause
  212. 2190  R1 = 22 : C1 =  2 : R2 = 24 : C2 = 11 : GOSUB 4100 'box
  213. 2200  LOCATE 23, 3 : PRINT "Child";
  214. 2210  GOSUB 4000 'pause
  215. 2220  CLS
  216. 2230  LOCATE  2,10 : PRINT "GETTING STARTED";
  217. 2240  LOCATE  8, 2 : PRINT "List of Persons";
  218. 2250  LOCATE 12, 2 : PRINT "List of Marriages";
  219. 2260  LOCATE 16, 2 : PRINT "Formatted Diskette (for data)";
  220. 2270  GOSUB 4000 'pause
  221. 2280  CLS
  222. 2290  LOCATE  2,10 : PRINT "LIST OF PERSONS";
  223. 2300  LOCATE  5, 2 : PRINT "Number  Name            F.No  M.No"
  224. 2310  LOCATE  7, 2 : PRINT "  1";
  225. 2320  LOCATE  9, 2 : PRINT "  2";
  226. 2330  LOCATE 11, 2 : PRINT "  3";
  227. 2340  LOCATE 13, 2 : PRINT "  4";
  228. 2350  LOCATE 15, 2 : PRINT "  5";
  229. 2360  LOCATE 17, 2 : PRINT "  6";
  230. 2370  LOCATE 19, 2 : PRINT "  7";
  231. 2380  LOCATE 21, 2 : PRINT "  8";
  232. 2390  GOSUB 4000 'pause
  233. 2400  LOCATE  7,10 : PRINT "You";
  234. 2410  GOSUB 4000 'pause
  235. 2420  LOCATE  9,10 : PRINT "Your Father";
  236. 2430  GOSUB 4000 'pause
  237. 2440  LOCATE 11,10 : PRINT "Your Mother";
  238. 2450  GOSUB 4000 'pause
  239. 2460  LOCATE  7,26 : PRINT "  2";
  240. 2470  LOCATE  7,32 : PRINT "  3";
  241. 2480  GOSUB 4000 'pause
  242. 2490  LOCATE 13,10 : PRINT "Your Spouse";
  243. 2500  GOSUB 4000 'pause
  244. 2510  CLS
  245. 2520  LOCATE  2,10 : PRINT "LIST OF MARRIAGES";
  246. 2530  LOCATE  5, 2 : PRINT "M.No.  H.No  Husband    W.No  Wife";
  247. 2540  LOCATE  7, 2 : PRINT "  1";
  248. 2550  LOCATE  9, 2 : PRINT "  2";
  249. 2560  LOCATE 11, 2 : PRINT "  3";
  250. 2570  LOCATE 13, 2 : PRINT "  4";
  251. 2580  LOCATE 15, 2 : PRINT "  5";
  252. 2590  LOCATE 17, 2 : PRINT "  6";
  253. 2600  LOCATE 19, 2 : PRINT "  7";
  254. 2610  LOCATE 21, 2 : PRINT "  8";
  255. 2620  GOSUB 4000 'pause
  256. 2630  LOCATE  7, 9 : PRINT "  2   Dad";
  257. 2640  LOCATE  7,26 : PRINT "  3   Mom";
  258. 2650  GOSUB 4000 'pause
  259. 2660  LOCATE  9, 9 : PRINT "  1   Mel";
  260. 2670  LOCATE  9,26 : PRINT "  4   Helen";
  261. 2680  GOSUB 4000 'pause
  262. 2690  CLS
  263. 2700  LOCATE 10,10 : PRINT "LET'S GET STARTED";
  264. 2710  GOSUB 4000 'pause
  265. 2720  CLS
  266. 2730  LOCATE  3, 6 : PRINT "PREPARE YOUR DATA DISKETTE";
  267. 2740  LOCATE  7, 2 : PRINT "FORMAT a Diskette for your data";
  268. 2750  LOCATE  9, 6 : PRINT "(Without the System on it)";
  269. 2760  LOCATE 11, 6 : PRINT "(Give it a Label if you want to)";
  270. 2770  GOSUB 4000 'pause
  271. 2780  LOCATE 15, 2 : PRINT "Copy the Verifile to it";
  272. 2790  GOSUB 4000 'pause
  273. 2800  LOCATE 19, 2 : PRINT "Copy the Menu to it";
  274. 2810  GOSUB 4000 'pause
  275. 2820  CLS
  276. 2830  LOCATE  3, 6 : PRINT "BRING UP BASIC";
  277. 2840  LOCATE  7, 2 : PRINT "Type:   basic/s:256";
  278. 2850  LOCATE  9, 4 : PRINT "and press the 'enter' key.";
  279. 2860  LOCATE 13, 4 : PRINT "(Need a 256 byte file buffer"
  280. 2870  LOCATE 15, 4 : PRINT " for the Genealogy Records)"
  281. 2880  GOSUB 4000 'pause
  282. 2890  CLS
  283. 2900  LOCATE  3, 6 : PRINT "BRING UP THE GENEALOGY MENU";
  284. 2910  LOCATE  7, 4 : PRINT "(With either the Program Diskette,";
  285. 2920  LOCATE  9, 4 : PRINT " or the Data Diskette in Place)";
  286. 2930  LOCATE 13, 2 : PRINT "Type:   run ";CHR$(34);"menu";CHR$(34);
  287. 2940  LOCATE 15, 4 : PRINT "and press the 'enter' key.";
  288. 2950  GOSUB 4000 'pause
  289. 2960  CLS
  290. 2970  LOCATE  2,10 : PRINT "CREATE THE DATA FILES";
  291. 2980  LOCATE  7, 2 : PRINT "Create (format) the Persons File";
  292. 2990  LOCATE  9, 4 : PRINT "Select the CREATPER Program";
  293. 3000  GOSUB 4000 'pause
  294. 3010  LOCATE 13, 2 : PRINT "Create (format) the Marriages File";
  295. 3020  LOCATE 15, 4 : PRINT "Select the CREATMAR Program";
  296. 3030  GOSUB 4000 'pause
  297. 3040  LOCATE 19, 2 : PRINT "Create (format) the Ordinances File";
  298. 3050  LOCATE 21, 4 : PRINT "Select the CREATORD Program";
  299. 3060  GOSUB 4000 'pause
  300. 3070  CLS
  301. 3080  LOCATE  2,10 : PRINT "ENTER YOUR DATA";
  302. 3090  LOCATE  6, 2 : PRINT "Enter Personal Information";
  303. 3100  LOCATE  8, 4 : PRINT "Select the UPDATPER Program";
  304. 3110  GOSUB 4000 'pause
  305. 3120  LOCATE 12, 2 : PRINT "Enter Marriage Information";
  306. 3130  LOCATE 14, 4 : PRINT "Select the UPDATMAR Program";
  307. 3140  GOSUB 4000 'pause
  308. 3150  LOCATE 18, 2 : PRINT "Enter Ordinances Information";
  309. 3160  LOCATE 20, 4 : PRINT "Select the UPDATORD Program";
  310. 3170  GOSUB 4000 'pause
  311. 3180  CLS
  312. 3190  LOCATE  2,10 : PRINT "FORM THE INDEXES";
  313. 3200  LOCATE  6, 2 : PRINT "Form the Parent/Child Index";
  314. 3210  LOCATE  8, 4 : PRINT "Select the INDEXPC Program";
  315. 3220  LOCATE 10, 6 : PRINT "(Run when Person Records Change)";
  316. 3230  GOSUB 4000 'pause
  317. 3240  LOCATE 16, 2 : PRINT "Form the Marriages Index";
  318. 3250  LOCATE 18, 4 : PRINT "Select the INDEXMAR Program";
  319. 3260  LOCATE 20, 6 : PRINT "(Run when Marriage Records Change)";
  320. 3270  GOSUB 4000 'pause
  321. 3280  CLS
  322. 3290  LOCATE 11,10 : PRINT "NOW THE FUN BEGINS";
  323. 3300  GOSUB 4000 'pause
  324. 3310  CLS
  325. 3320  LOCATE  2,10 : PRINT "VIEW YOUR GENEALOGY";
  326. 3330  LOCATE  5, 2 : PRINT "Select the DISPLAY Program";
  327. 3340  LOCATE  7, 4 : PRINT "View Personal Information";
  328. 3350  LOCATE  9, 4 : PRINT "View Pedigree Charts";
  329. 3360  LOCATE 11, 4 : PRINT "View Family Groups";
  330. 3370  LOCATE 13, 4 : PRINT "View Ordinances";
  331. 3380  GOSUB 4000 'pause
  332. 3390  LOCATE 18, 2 : PRINT "Select the DESCEND Program";
  333. 3400  LOCATE 20, 4 : PRINT "View Descendants";
  334. 3410  GOSUB 4000 'pause
  335. 3420  CLS
  336. 3430  LOCATE  2,10 : PRINT "PAPER FOR THE CHARTS";
  337. 3440  LOCATE  5, 2 : PRINT "Wide (14 inch) Paper, or";
  338. 3450  LOCATE  7, 2 : PRINT "Narrow (8-1/2 inch) Paper"
  339. 3460  LOCATE 11, 2 : PRINT "Single Sheets, or";
  340. 3470  LOCATE 13, 2 : PRINT "Continuous Forms";
  341. 3480  LOCATE 17, 2 : PRINT "Blank Paper, or";
  342. 3490  LOCATE 19, 2 : PRINT "Pre-printed Forms";
  343. 3500  LOCATE 21, 4 : PRINT "Family Group, GA-032";
  344. 3510  LOCATE 23, 4 : PRINT "Pedigree Chart, GA-054";
  345. 3520  GOSUB 4000 'pause
  346. 3530  CLS
  347. 3540  LOCATE  2,10 : PRINT "PRINT THE CHARTS";
  348. 3550  LOCATE  5, 2 : PRINT "Print Pedigree Charts";
  349. 3560  LOCATE  7, 4 : PRINT "Select the PEDIGREE Program";
  350. 3570  GOSUB 4000 'pause
  351. 3580  LOCATE 11, 2 : PRINT "Print Family Group Sheets";
  352. 3590  LOCATE 13, 4 : PRINT "Select the FAMILY Program";
  353. 3600  GOSUB 4000 'pause
  354. 3610  LOCATE 17, 2 : PRINT "Print Descendents Charts";
  355. 3620  LOCATE 19, 4 : PRINT "Select the DESCEND Program";
  356. 3630  GOSUB 4000 'pause
  357. 3640  CLS
  358. 3650  LOCATE  2,10 : PRINT "PRINT THE LISTS";
  359. 3660  LOCATE  5, 2 : PRINT "Print Lists of Persons by Number";
  360. 3670  LOCATE  7, 4 : PRINT "Select the LISTPER Program";
  361. 3680  GOSUB 4000 'pause
  362. 3690  LOCATE  9, 2 : PRINT "Print Alphabetized Lists of Persons";
  363. 3700  LOCATE 11, 4 : PRINT "Select the ALPHAPER Program";
  364. 3710  GOSUB 4000 'pause
  365. 3720  LOCATE 13, 2 : PRINT "Print Lists of Marriages by Number";
  366. 3730  LOCATE 15, 4 : PRINT "Select the LISTMAR Program";
  367. 3740  GOSUB 4000 'pause
  368. 3750  LOCATE 17, 2 : PRINT "Print Alphabetized Lists of Marriages";
  369. 3760  LOCATE 19, 4 : PRINT "Select the ALPHAMAR Program";
  370. 3770  GOSUB 4000 'pause
  371. 3780  LOCATE 21, 2 : PRINT "Print the Parent/Child Index";
  372. 3790  LOCATE 23, 4 : PRINT "Select the LISTPCI Program";
  373. 3800  GOSUB 4000 'pause
  374. 3810  CLS
  375. 3820  LOCATE  2, 5 : PRINT "PRINT DETAILED INFORMATION";
  376. 3830  LOCATE  6, 2 : PRINT "Print Detailed Personal Data";
  377. 3840  LOCATE  9, 4 : PRINT "Select the PRINTPER Program";
  378. 3850  GOSUB 4000 'pause
  379. 3860  LOCATE 14, 2 : PRINT "Print Detailed Marriage Data";
  380. 3870  LOCATE 17, 4 : PRINT "Select the PRINTMAR Program";
  381. 3880  GOSUB 4000 'pause
  382. 3890  CLS
  383. 3900  LOCATE  4,10 : PRINT "Genealogy ON DISPLAY";
  384. 3910  LOCATE  6,14 : PRINT "Version 5.0";
  385. 3920  LOCATE 10, 8 : PRINT "A User-Supported Program";
  386. 3930  LOCATE 14,10 : PRINT "By:  Melvin O. Duke";
  387. 3940  LOCATE 16,12 : PRINT "P.O. Box 20836";
  388. 3950  LOCATE 18,10 : PRINT "San Jose, CA  95160";
  389. 3960  LOCATE 20,12 : PRINT "(408) 268-6637";
  390. 3970  LOCATE 23, 1
  391. 3980  GOSUB 4000 'pause
  392. 3990  GOTO 4030
  393. 4000  REM Generalized Pause Routine
  394. 4010  A$ = INKEY$
  395. 4020  IF A$ = CHR$(27) THEN 4030 ELSE 4070
  396. 4030  CLS
  397. 4040  SCREEN 0,0,0,0
  398. 4050  WIDTH "scrn:",80
  399. 4060  GOTO 4200
  400. 4070  IF A$ = "" THEN 4010
  401. 4080  RETURN
  402. 4090  '
  403. 4100  REM Generalized Box Routine
  404. 4110  REM Entry is R1, C1, R2, C2
  405. 4120  LINE (8*C1-4,8*R1-4)-(8*C2-4,8*R2-4),,B
  406. 4130  RETURN
  407. 4140  '
  408. 4150  REM Generalized Line Routine
  409. 4160  REM Entry is R1, C1, R2, C2
  410. 4170  LINE (8*C1-4,8*R1-4)-(8*C2-4,8*R2-4)
  411. 4180  RETURN
  412. 4190  '
  413. 4200  END
  414.